home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / gcc / libmat.lha / src / mdet.cc < prev    next >
C/C++ Source or Header  |  1980-01-01  |  196b  |  14 lines
  1. //                MATRIX LIB
  2. //            TOMMY JOHANSSON 1995
  3.  
  4. #include "matrix.h"
  5. float det(const Matrix & A)
  6. {
  7.     float x=1;
  8.     Matrix C(A.m);
  9.     C=gauss(A);
  10.     int i;
  11.     for(i=1;i<=A.m;i++)
  12.         x*=C.koff[i][i];
  13.     return(x);
  14. }